Sub TransferUsingRangesArray()
    Dim Ws As Worksheet, Sh As Worksheet, myValues
    
    Set Ws = Sheets(" "): Set Sh = Sheets("")
    
    Application.ScreenUpdating = False
        With Ws
            myValues = Array(.Range("C4"), .Range("C5"), .Range("B27"), "", "", "", .Range("B28"), "", "", "", .Range("B29"), "", "", "", .Range("B30"), "", "", "", .Range("B31"))
        End With
        
        With Sh
            .Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row + 1).Resize(1, 19).Value = myValues
        End With
    Application.ScreenUpdating = True
    
    MsgBox "Done ...", 64
End Sub